home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Grab Bag
/
Shareware Grab Bag.iso
/
007
/
tttool30.arc
/
SAVEDTTT.DEM
< prev
next >
Wrap
Text File
|
1986-09-28
|
947b
|
41 lines
Program Illustrating_Screen_Saving;
{$I Decl.ttt}
{$I Fastwrit.TTT}
{$I Window.TTT}
Procedure FillUpScreen(Character : char;F,B : byte);
var I , J : integer;
begin
For I := 1 to 25 do
For J := 1 to 80 do
WriteAT(J,I,F,B,Character);
end;
Procedure Pause;
begin
WriteCenter(25,red,white,' press any key to continue ... ');
Read(Kbd,Ch);
If keypressed then read(kbd,Ch);
end;
begin
Clrscr;
FillupScreen('*',white,blue);
GotoXY(80,25); {move the cursor to a unique location}
WriteCenter(1,white,black,' This is screen 1 ');
SaveScreen(1);
Pause;
FillupScreen('2',red,lightgray);
SaveScreen(2);
GotoXY(1,1); {put cursor in a different position}
WriteCenter(1,white,lightgray,'Press space bar to restore original screen el quicko');
pause;
RestoreScreen(1);
pause;
clrscr;
Writeln('Run DemoTTT.com for the main demo program');
Write('Technojocks Turbo Toolkit');
end.